home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / cutf / asm / csize1.hd6 < prev    next >
Text File  |  1993-07-08  |  4KB  |  303 lines
  1. ds_name        db    'MOZCF\CSIZE',0
  2.                                                 ; out 506 cut size
  3.  
  4. look_me:
  5.      call sub_esi
  6.      dd  0,0
  7.      dw  0,0           ; wind need
  8.      dw  150,120,250,150 ; sz_x sz_y off x  off y
  9.      dw  15,6          ; waku iro  meniro 
  10.      dw  0,0
  11. ura:
  12.     call sub_edi
  13.     dw 0
  14.     db'URA',0
  15. p_call:
  16.     M_P_CALL
  17. p_set:
  18.     M_P_SET
  19.  
  20. paint_wd:
  21.     SET_P ura
  22. re_paint:
  23.      WD_WANT
  24.      WD_CLS 0
  25.      BOX boxdt,8
  26.     call icon1
  27.     call p_icon
  28.     call icon2
  29.     call p_icon
  30.  
  31.      MOZI mozidt
  32.      MOZI mozidt1
  33.      MOZI mozidt2
  34.      MOZI mozidt3
  35.  
  36.      ret
  37. p_icon:
  38.     mov ah,100
  39.     mov al,31
  40.     call komei1
  41.     ret
  42. icon1:
  43.     call sub_edi
  44.     dw    1,200+32,50,1,4,33,13,0
  45. icon2:
  46.     call sub_edi
  47.     dw    1,200,50-32,1,14,0
  48.  
  49. boxdt:
  50.     call sub_edi
  51.          dw     2,30,15,0,3,0,50,15,7,0
  52.          dw     2,30,15,34,3,0,50,15,7,0
  53.          dw     2,30,15,68,3,0,50,15,7,0
  54.          dw     1,40,65,105,3,0,0,15,8,0
  55.          dw     1,102,30,0,20,0,0,15,8,0
  56. boxdt1:
  57.     call sub_edi
  58.          dw     1,102,30,0,19,0,0,15,8,0
  59.  
  60. mozidt:
  61.     call sub_edi
  62.            dw    0,15,8,0,34,0,3
  63.                    db    '*',0
  64.                    db    '*',0
  65.                    db    '*',0
  66.                    dw    0,0
  67. mozidt1:
  68.     call sub_edi
  69.            dw    0,15,8,50,34,0,3
  70.                    db    '*',0
  71.                    db    '*',0
  72.                    db    '*',0
  73.                    dw    0,0
  74. mozidt2:
  75.     call sub_edi
  76.            dw    0,15,30,26,41,0,3
  77.                    db    '000',0
  78.                    db    'Ｋ',0
  79.                    db    '決定',0
  80.                    dw    0,0
  81.  
  82. mozidt3:
  83.     call sub_edi
  84.            dw    0,15,10,75,0,20,2
  85.                    db    '分割後のサイズを',0
  86.                    db    '指定してください',0
  87.                    dw    0,0
  88.  
  89.  
  90. be_called:
  91.      call re_paint
  92.      call st_chk
  93.      jmp matu
  94.  
  95. ck_mouse:
  96.      M_KENMS
  97.  
  98. kesu_m:
  99.      M_KESUMS
  100.  
  101. left_wd:
  102.      WD_LEFT
  103.      WD_ERZ 0
  104.      ret
  105. kaisu:
  106.     call sub_edi
  107.     dw    0
  108. matu1:
  109.  
  110. ;    call kaisu
  111. ;    inc word ptr [edi]
  112. ;    cmp word ptr [edi],400
  113. ;    jne matu
  114. ;    mov word ptr [edi],0
  115.  
  116.     KAKU word ptr 300,3000
  117.     CALL_P ura
  118.     KAKU word ptr 300,0
  119.  
  120.  
  121. matu:
  122.         call ck_mouse
  123. mouse_in:
  124.         cmp ch,0
  125.         je matu1
  126. mck_m0:
  127.       MOU boxdt,7
  128.       cmp bx,1                  ;bx=1 find
  129.       jne matu
  130.  
  131.      cmp ax,1
  132.      je d_f1
  133.      cmp ax,2
  134.      je d_f2
  135.      cmp ax,3
  136.      je d_f3
  137.      cmp ax,4
  138.      je d_f4
  139.      cmp ax,5
  140.      je d_f5
  141.      cmp ax,6
  142.      je d_f6
  143.      cmp ax,7
  144.      je d_f7
  145.      jmp matu
  146.  
  147.  
  148.  
  149.  
  150.  
  151. d_fsize:
  152.      call sub_edi
  153.      dw     0
  154.  
  155. d_f1:
  156.      call kesu_m
  157.  
  158.      call d_fsize
  159.      mov ax,[edi]
  160.      cmp ax,200
  161.      jge matu
  162.      add ax,100
  163.      mov [edi],ax
  164.      call w_fsz
  165.      jmp matu
  166. d_f2:
  167.      call kesu_m
  168.  
  169.      call d_fsize
  170.      mov ax,[edi]
  171.      cmp ax,100
  172.      jl matu
  173.      sub ax,100
  174.      mov [edi],ax
  175.      call w_fsz
  176.      jmp matu
  177. d_f3:
  178.      call kesu_m
  179.  
  180.      call d_fsize
  181.      mov ax,[edi]
  182.        cmp ax,240
  183.        jg matu
  184.      add ax,10
  185.      mov [edi],ax
  186.      call w_fsz
  187.      jmp matu
  188.  
  189. d_f4:
  190.      call kesu_m
  191.  
  192.      call d_fsize
  193.      mov ax,[edi]
  194.      cmp ax,10
  195.      jl matu
  196.      sub ax,10
  197.      mov [edi],ax
  198.      call w_fsz
  199.      jmp matu
  200. d_f5:
  201.      call kesu_m
  202.  
  203.      call d_fsize
  204.      mov ax,[edi]
  205.        cmp ax,250
  206.        jge matu
  207.      inc ax
  208.      mov [edi],ax
  209.      call w_fsz
  210.      jmp matu
  211.  
  212. d_f6:
  213.      call kesu_m
  214.  
  215.      call d_fsize
  216.      mov ax,[edi]
  217.      cmp ax,0
  218.      jle matu
  219.      dec ax
  220.      mov [edi],ax
  221.      call w_fsz
  222.      jmp matu
  223.  
  224. d_f7:
  225.      call kesu_m
  226.  
  227.      mov eax,0
  228.      call d_fsize
  229.      mov ax,[edi]
  230.      mov bx,1000
  231.      mul bx
  232.      mov ebx,eax
  233.      mov eax,edx
  234.      shl eax,16
  235.      mov ax,bx
  236.      cmp eax,1000
  237.      jl d_f71
  238.      KAKU 506,eax
  239.      jmp left_wd
  240. d_f71:
  241.      mov eax,30000
  242.      KAKU 506,eax
  243.      jmp left_wd
  244.  
  245.  
  246. w_fsz:
  247.      call d_fsize
  248.      mov ax,[edi]
  249.  
  250.      call mozidt2
  251.      add edi,14
  252.      call stom_3
  253.  
  254.      BOX boxdt1,1
  255.      MOZI mozidt2
  256.  
  257.      ret
  258.  
  259. st_chk:
  260.      mov eax,50000
  261.      KAKU 506,eax
  262.      mov ebx,1000
  263.      mov edx,0
  264.      div ebx
  265.  
  266.      call d_fsize
  267.      mov [edi],ax
  268.      call w_fsz
  269.      ret
  270.  
  271.  
  272. stom_3:
  273.      pushad
  274.      mov ebx,3
  275.  
  276. stom_0:
  277.      cmp ax,0
  278.      je zerokaesi
  279. stom_0_0:
  280.      mov cx,10
  281.      mov dx,0
  282.      div cx
  283.      add dl,30h
  284.      mov [edi+ebx-1],dl
  285.      dec ebx
  286.      jnz stom_0
  287.  
  288.      popad
  289.      ret
  290.  
  291.  
  292. zerokaesi:
  293.      mov dl,160
  294.      mov [edi],dl
  295.      inc edi
  296.      dec ebx
  297.      cmp ebx,0
  298.      jne zerokaesi
  299.  
  300.      popad
  301.      ret
  302.  
  303.